home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / docs / lists / DevGuide.lha / DevGuide / MyCheck < prev    next >
Encoding:
AmigaDOS Script File  |  1999-02-09  |  1.3 KB  |  40 lines
  1. .key file/A
  2. .BRA {
  3. .KET }
  4.  
  5. FailAt 50
  6. Echo "*NCheck:       {file}"
  7. RAM:VersionWB {file} text shortdate nomisc >ram:vwb_check
  8. rx RAM:MyConvert.rexx
  9. If NOT WARN
  10.     RAM:Search RAM:DeviceList :$filename NONUM >ENV:Check2
  11.     rx MyCheck.rexx $Checktemp1,$Check2
  12.     If NOT WARN
  13.         If "$Checkdev1" EQ "$Checkdev2"
  14.             SetEnv CheckErg=" is OK!"
  15.         else
  16.             If "$Checkdev1" GT "$Checkdev2"
  17.                 SetEnv CheckErg="NEW !!! Please contact age@thepentagon.com!"
  18.                Echo "*N----------------------------------------------------------" >>Ram:Lib-NewList
  19.                 Echo "*N{file}" >>Ram:Dev-NewList
  20.                 c:List "{file}" LFormat="Name: %-40n Size: %-10l" >>Ram:Dev-NewList
  21.                 Echo "*NC:Version means:" >>Ram:Dev-NewList
  22.                 Version "{file}" FULL FILE >>Ram:Dev-NewList
  23.                 Echo "*NVWB means:" >>Ram:Dev-NewList
  24.                 VersionWB "{file}" text shortdate full >>Ram:Dev-NewList
  25.                 Echo "*NYOUR COMMENT:" >>Ram:Dev-NewList
  26.             else
  27.                 SetEnv CheckErg=" Newer Device is available!"
  28.               Echo "Your System: $Check1 -> DeviceGuide: $Check2" >>Ram:Dev-OldList
  29.                 c:List "{file}" LFormat="%n|%l" >ENV:Lister
  30.             Echo "$Lister|$Version" >>Ram:Dev-OnlineUpdate
  31.             EndIf
  32.         EndIf
  33.         Echo "DeviceGuide: $Check2 *NYour System: $Check1 $CheckErg"
  34.         Echo "DeviceGuide: $Check2 *NYour System: $Check1 $CheckErg*N" >>Ram:Dev-List
  35.     else
  36.         Echo "{file}"
  37.         Echo "$Check1 *N{file} ??.??" >>Ram:Dev-List
  38.     EndIf
  39. EndIf
  40.